home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL26.PRO < prev    next >
Encoding:
Prolog Source  |  1979-12-31  |  528 b   |  16 lines
  1.                 /* Program 26 */
  2. predicates
  3.     run
  4. clauses
  5.     run :-
  6.       makewindow(1,7,7,"A blue window",2,5,10,50),
  7.       write("The characters are red"),
  8.       makewindow(2,7,7,"A light cyan window",14,25,10,40),
  9.       write("This window is light cyan and the "),
  10.         write("letters are black and blink."),
  11.         write("  Please type an integer to exit."),nl,
  12.         readint(_),
  13.         removewindow,
  14.         write("    Please type an integer to exit."),nl,
  15.         readint(_),
  16.         removewindow.